#ton lie la librairie à utiliser
library(RGtk2)

#fonction pour charger les donnees et mettre a jour
#l'affichage apres le chargement

go <- function(){




#on creer la fenetre
window = gtkWindow()
#on lui donne un titre, i.e on renseigne son champ titre
#car oui , on reste en R, ce n'est donc que plein de vecteur
window["title"] = "titre fenetre"

#on cree la "frame" , le conteneur général de tout ce qu'il y a dans
# notre fenetre , le superPanel de Swing
frame = gtkFrameNew("titre de la frame") 
#ici on met un titre dnas le constructeur. Dans cet exemple, 
#le titre n'est pas pertinent, mais il permet l'affichage d'un cadre,
#ce qui permet de voir la diffférence entre la window et la frame

#on l'ajoute dnas la window
window$add(frame)
}


